home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos30.d64 / sectors->data (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  1KB  |  45 lines
  1. 0 PRINT"[196]ISK SECTOR TO [194][193][211][201][195] DATA STATEMENTS"
  2. 1 PRINT"[147][214]ERSION 1.0 BY [210]ANDY [215]INCHESTER"
  3. 2 PRINT"'LIST 8' FOR STARTING LINE NUMBER"
  4. 3 PRINT"'LIST 2000-*' FOR TRACK/SECTOR DATA"
  5. 4 PRINT"[193]S AN EXAMPLE, FOR TRACK 18, SECTOR 0,  ENTER '2000 DATA 18,0'."
  6. 5 PRINT"[213]SE 'DATA 0,0' AS THE LAST LINE.
  7. 6 [153]"'RUN 8' TO RUN.":[128]
  8. 8 LN[178]1000:[143] STARTING LINE NUMBER
  9. 9 Q$[178][199](34)
  10. 10 [159]15,8,15,"I0"
  11. 25 [141]30:[137]50
  12. 30 [132]15,EN$,EM$,ET$,ES$
  13. 40 [139] EN$[179][177]"00"[137]990
  14. 45 [142]
  15. 50 [159]2,8,2,"#"
  16. 55 [159]3,8,3,"TEMPDATA,S,W"
  17. 60 [135] TR,SE
  18. 65 [152]3,LN[170]5;" DATA";[201]([196](TR),2);[199](44);[201]([196](SE),2)
  19. 70 [139] TR[178]0[167] 970
  20. 80 [152]15,"U1";2;0;TR;SE
  21. 90 [141]30
  22. 95 [153]"LOADREADING TRACK ";TR"WAIT SECTOR ";SE:[153]"WRITING DATA FILE . . ."
  23. 100 [129] C1[178]0[164]31
  24. 120 LN[178]LN[170]10
  25. 130 [152]3,LN;"DATA";
  26. 140 [129] C2[178]0[164]7
  27. 150 [161]#2,B$:[139] B$[178]""[167] B$[178][199](0)
  28. 160 [152]3,[201]([196]([198](B$)),3);:[139] C2[179]7[167] [152]3,[199](44);
  29. 170 [130]
  30. 180 [152]3,[199](13)
  31. 190 [130]
  32. 200 [137]60
  33. 970 [152]3,"?"Q$"SAVE"Q$"CHR$(34)"Q$"SECTORDATA"Q$"CHR$(34)"Q$",8"Q$
  34. 971 [152]3,"?"Q$"OPEN1,8,15,"Q$"CLEFT$(34)"Q$"S0:TEMPDATA"Q$"CLEFT$(34)"Q$":CLOSE15"
  35. 975 [152]3,"PRINT"Q$"ONONONONONONONONONONONONONON"Q$
  36. 980 [152]3,"CLOSE2:POKE812,47:SYS65484"
  37. 990 [160]3:[160]2
  38. 1000 [160]15
  39. 1010 [153]"LOAD";:[153]:[153]:[153]"OPEN2,8,2,";Q$;
  40. 1011 [153]"TEMPDATA";Q$;
  41. 1020 [153]":POKE781,2:POKE812,73:SYS65478"
  42. 1030 [153]"";:[151]198,1:[151]631,13:[162]
  43. 2000 [131]18,0:[143] DATA FOR TRACK 18,    SECTOR 0 (AN EXAMPLE)
  44. 2010 [131] 0,0:[143] ALL DONE!
  45.